home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / hireswall.s < prev    next >
Text File  |  1997-01-31  |  37KB  |  2,622 lines
  1. leftclip: dc.w 0
  2. rightclip: dc.w 0
  3. deftopclip: dc.w 0
  4. defbotclip: dc.w 0
  5. leftclipandlast: dc.w 0
  6.  
  7. SCALE MACRO
  8.  dc.w 64*0
  9.  dc.w 64*1
  10.  dc.w 64*1
  11.  dc.w 64*2
  12.  dc.w 64*2
  13.  dc.w 64*3
  14.  dc.w 64*3
  15.  dc.w 64*4
  16.  dc.w 64*4
  17.  dc.w 64*5
  18.  dc.w 64*5
  19.  dc.w 64*6
  20.  dc.w 64*6
  21.  dc.w 64*7
  22.  dc.w 64*7
  23.  dc.w 64*8
  24.  dc.w 64*8
  25.  dc.w 64*9
  26.  dc.w 64*9
  27.  dc.w 64*10
  28.  dc.w 64*10
  29.  dc.w 64*11
  30.  dc.w 64*11
  31.  dc.w 64*12
  32.  dc.w 64*12
  33.  dc.w 64*13
  34.  dc.w 64*13
  35.  dc.w 64*14
  36.  dc.w 64*14
  37.  dc.w 64*15
  38.  dc.w 64*15
  39.  dc.w 64*16
  40.  dc.w 64*16
  41.  dc.w 64*17
  42.  dc.w 64*17
  43.  dc.w 64*18
  44.  dc.w 64*18
  45.  dc.w 64*19
  46.  dc.w 64*19
  47.  dc.w 64*20
  48.  dc.w 64*20
  49.  dc.w 64*21
  50.  dc.w 64*21
  51.  dc.w 64*22
  52.  dc.w 64*22
  53.  dc.w 64*23
  54.  dc.w 64*23
  55.  dc.w 64*24
  56.  dc.w 64*24
  57.  dc.w 64*25
  58.  dc.w 64*25
  59.  dc.w 64*26
  60.  dc.w 64*26
  61.  dc.w 64*27
  62.  dc.w 64*27
  63.  dc.w 64*28
  64.  dc.w 64*28
  65.  dc.w 64*29
  66.  dc.w 64*29
  67.  dc.w 64*30
  68.  dc.w 64*30
  69.  dc.w 64*31
  70.  dc.w 64*31
  71.  dc.w 64*31
  72.  dc.w 64*31
  73.  dc.w 64*31
  74.  dc.w 64*31
  75.  dc.w 64*31
  76.  dc.w 64*31
  77.  dc.w 64*31
  78.  dc.w 64*31
  79.  dc.w 64*31
  80.  dc.w 64*31
  81.  dc.w 64*31
  82.  dc.w 64*31
  83.  dc.w 64*31
  84.  dc.w 64*31
  85.  dc.w 64*31
  86.  dc.w 64*31
  87.  dc.w 64*31
  88.  dc.w 64*31
  89.  ENDM
  90.  
  91. *********************************** 
  92.  
  93. * The screendivide routine is simpler
  94. * using a0=left pixel
  95. * a2= right pixel
  96. * d0= left dist
  97. * d2= right dist
  98. * d4 = left strip
  99. * d5 = right strip
  100.  
  101. * (a0)=leftx
  102. * 2(a0)=rightx
  103.  
  104. * 4(a0)=leftbm
  105. * 6(a0)=rightbm
  106.  
  107. * 8(a0)=leftdist
  108. * 10(a0)=rightdist
  109.  
  110. * 12(a0)=lefttop
  111. * 14(a0)=righttop
  112.  
  113. * 16(a0)=leftbot
  114. * 18(a0)=rightbot
  115.  
  116.  
  117. Doleftend:
  118.  
  119.  move.w leftclip,d0
  120.  sub.w #1,d0
  121.  move.w d0,leftclipandlast
  122.  
  123.  
  124.  move.w (a0),d0
  125.  move.w 2(a0),d1
  126.  sub.w d0,d1
  127.  bge.s sometodraw
  128.  rts
  129. sometodraw:
  130.  move.w itertab(pc,d1.w*4),d7
  131.  swap d0
  132.  move.w itertab+2(pc,d1.w*4),d6
  133.  clr.w d0
  134.  swap d1
  135.  clr.w d1
  136.  asr.l d6,d1
  137.  move.l d1,(a0)
  138.  
  139.  bra pstit
  140.  
  141. itertab:
  142.  incbin "ab3:includes/iterfile"
  143.  
  144. pstit:
  145.  
  146.  moveq #0,d1
  147.  move.w 4(a0),d1
  148.  moveq #0,d2
  149.  move.w 6(a0),d2
  150.  sub.w d1,d2
  151.  swap d1
  152.  swap d2
  153.  asr.l d6,d2
  154.  move.l d2,4(a0)
  155.  
  156.  moveq #0,d2
  157.  move.w 8(a0),d2
  158.  moveq #0,d3
  159.  move.w 10(a0),d3
  160.  sub.w d2,d3
  161.  swap d2
  162.  swap d3
  163.  asr.l d6,d3
  164.  move.l d3,8(a0)
  165.  
  166.  moveq #0,d3
  167.  move.w 12(a0),d3
  168.  moveq #0,d4
  169.  move.w 14(a0),d4
  170.  sub.w d3,d4
  171.  swap d3
  172.  swap d4
  173.  asr.l d6,d4
  174.  move.l d4,12(a0)
  175.  
  176.  moveq #0,d4
  177.  move.w 16(a0),d4
  178.  moveq #0,d5
  179.  move.w 18(a0),d5
  180.  sub.w d4,d5
  181.  swap d4
  182.  swap d5
  183.  asr.l d6,d5
  184.  move.l d5,16(a0)
  185.  
  186.  
  187. *** Gouraud shading ***
  188.  moveq #0,d5
  189.  move.w 26(a0),d5
  190.  sub.w 24(a0),d5
  191.  add.w d5,d5
  192.  swap d5
  193.  asr.l d6,d5
  194.  move.l d5,28(a0)
  195.  moveq #0,d5
  196.  move.w 24(a0),d5
  197.  add.w d5,d5
  198.  swap d5
  199.  
  200.  bra screendivide
  201.  
  202. itercount: dc.w 0
  203.  
  204. screendividethru:
  205.  
  206. .scrdrawlop:
  207.  
  208.  move.w (a0)+,d0
  209. ; move.l FASTBUFFER,a3
  210.  move.l frompt,a3
  211.  adda.w .scrintocop(pc,d0.w*2),a3
  212.  move.l (a0)+,d1
  213.  
  214.  bra .pastscrinto
  215.  
  216. .scrintocop:
  217.  incbin "ab3:includes/XTOCOPX"
  218.  
  219. .pastscrinto: 
  220.  
  221.  swap d1
  222.  
  223.  move.w d1,d6
  224.  and.w HORAND,d6
  225.  move.l (a0)+,d2
  226.  swap d2
  227.  add.w fromtile(pc),d6
  228.  add.w d6,d6
  229.  move.w d6,a5
  230.  move.l (a0)+,d3
  231.  swap d3
  232.  add.l #divthreetab,a5
  233.  move.w (a5),StripData
  234.  
  235.  move.l ChunkAddr,a5
  236.  moveq #0,d6
  237.  move.b StripData,d6
  238.  add.w d6,d6
  239.  move.w VALSHIFT,d4
  240.  asl.l d4,d6
  241.  add.l d6,a5
  242.  move.l (a0)+,d4
  243.  swap d4
  244.  move.w d2,d6
  245. ***************************
  246. * old version
  247.  asr.w #7,d6
  248. ***************************
  249. ; asr.w #3,d6
  250. ; sub.w #4,d6
  251. ; cmp.w #6,d6
  252. ; blt.s tstbrbr
  253. ; move.w #6,d6
  254. ;tstbrbr:
  255. ***************************
  256.  add.w angbright(pc),d6
  257.  bge.s .brnotneg
  258.  moveq #0,d6
  259. .brnotneg
  260.  cmp.w #32,d6
  261.  blt.s .brnotpos
  262.  move.w #32,d6
  263. .brnotpos
  264.  move.l PaletteAddr,a2
  265.  move.l a2,a4
  266.  add.w .ffscrpickhowbright(pc,d6*2),a2
  267. ; and.b #$fe,d6
  268. ; add.w .ffscrpickhowbright(pc,d6*2),a4
  269.  
  270. ; btst #0,d0
  271. ; beq .nobrightswap
  272. ; exg a2,a4
  273. ;.nobrightswap:
  274.  
  275.  move.w d7,-(a7)
  276.  bsr ScreenWallstripdrawthru
  277.  move.w (a7)+,d7
  278.  
  279.  dbra d7,.scrdrawlop
  280.  rts
  281.  
  282. .ffscrpickhowbright:
  283.  SCALE
  284.  
  285.  
  286. ***************************
  287.  
  288. screendivide:
  289.  
  290.  or.l #$ffff0000,d7
  291.  move.w leftclipandlast(pc),d6
  292.  move.l #WorkSpace,a2
  293.  
  294.  move.l (a0),a3
  295.  move.l 4(a0),a4
  296.  move.l 8(a0),a5
  297.  move.l 12(a0),a6
  298.  move.l 16(a0),a1
  299.  move.l 28(a0),a0
  300.  
  301. scrdivlop:
  302.  
  303.  swap d0
  304.  cmp.w d6,d0
  305.  bgt scrnotoffleft
  306.  swap d0
  307.  add.l a4,d1
  308.  add.l a5,d2
  309.  add.l a6,d3
  310.  add.l a1,d4
  311.  add.l a3,d0
  312.  add.l a0,d5
  313.  dbra d7,scrdivlop
  314.  rts
  315.  
  316. scrnotoffleft:
  317.  
  318.  move.w d0,d6
  319.  
  320.  cmp.w rightclip(pc),d0
  321.  bge.s outofcalc
  322.  
  323. scrnotoffright:
  324.  
  325.  
  326.  move.w d0,(a2)+
  327.  move.l d1,(a2)+
  328.  move.l d2,(a2)+
  329.  move.l d3,(a2)+
  330.  move.l d4,(a2)+
  331.  move.l d5,(a2)+
  332.  swap d0
  333.  add.l a3,d0
  334.  add.l a4,d1
  335.  add.l a5,d2
  336.  add.l a6,d3
  337.  add.l a1,d4
  338.  add.l a0,d5
  339.  add.l #$10000,d7
  340.  dbra d7,scrdivlop
  341.  
  342. outofcalc:
  343.  swap d7
  344.  tst.w d7
  345.  bge.s .somethingtodraw
  346.  rts
  347. .somethingtodraw:
  348.  
  349.  move.l #consttab,a1
  350.  move.l #WorkSpace,a0
  351.  
  352.  tst.b FULLSCR
  353.  bne screendivideFULL
  354.  
  355. ; tst.b seethru
  356. ; bne screendividethru
  357.  
  358.  tst.b DOUBLEWIDTH
  359.  bne scrdrawlopDOUB
  360.  
  361. scrdrawlop:
  362.  
  363.  move.w (a0)+,d0
  364. ; move.l FASTBUFFER,a3
  365.  move.l frompt,a3
  366.  adda.w .scrintocop(pc,d0.w*2),a3
  367. ; lea (a3,d0.w),a3
  368.  move.l (a0)+,d1
  369.  
  370.  bra .pastscrinto
  371. .scrintocop:
  372.  incbin "XTOCOPX"
  373.  
  374. .pastscrinto
  375.  
  376.  swap d1
  377.  
  378.  move.w d1,d6
  379.  and.w HORAND,d6
  380.  move.l (a0)+,d2
  381.  swap d2
  382.  add.w fromtile(pc),d6
  383.  add.w d6,d6
  384.  move.w d6,a5
  385.  move.l (a0)+,d3
  386.  swap d3
  387.  add.l #divthreetab,a5
  388.  move.w (a5),StripData
  389.  
  390.  move.l ChunkAddr,a5
  391.  moveq #0,d6
  392.  move.b StripData,d6
  393.  add.w d6,d6
  394.  move.w VALSHIFT,d4
  395.  asl.l d4,d6
  396.  add.l d6,a5
  397.  move.l (a0)+,d4
  398.  swap d4
  399.  addq #1,d4
  400.  move.w d2,d6
  401. ***************************
  402. * old version
  403.  asr.w #7,d6
  404. ***************************
  405. ; asr.w #3,d6
  406. ; sub.w #4,d6
  407. ; cmp.w #6,d6
  408. ; blt.s tstbrbr
  409. ; move.w #6,d6
  410. ;tstbrbr:
  411. ***************************
  412.  move.l (a0)+,d5
  413.  swap d5
  414.  ext.w d5
  415.  add.w d5,d6
  416.  bge.s .brnotneg
  417.  moveq #0,d6
  418. .brnotneg
  419.  cmp.w #64,d6
  420.  blt.s .brnotpos
  421.  move.w #64,d6
  422. .brnotpos
  423.  move.l PaletteAddr,a2
  424.  move.l a2,a4
  425.  add.w ffscrpickhowbright(pc,d6*2),a2
  426.  and.b #$fe,d6
  427.  add.w ffscrpickhowbright(pc,d6*2),a4
  428.  
  429.  btst #0,d0
  430.  beq .nobrightswap
  431.  exg a2,a4
  432. .nobrightswap:
  433.  
  434.  move.w d7,-(a7)
  435.  bsr ScreenWallstripdraw
  436.  move.w (a7)+,d7
  437.  
  438. toosmall:
  439.  
  440.  dbra d7,scrdrawlop
  441.  
  442.  rts
  443.  
  444. ffscrpickhowbright:
  445.  SCALE
  446.  
  447.  
  448. thislineodd:
  449.  add.w #4+4+4+4+4,a0
  450.  dbra d7,scrdrawlopDOUB
  451.  rts
  452.  
  453. scrdrawlopDOUB:
  454.  
  455.  move.w (a0)+,d0
  456.  btst #0,d0
  457.  bne.s thislineodd
  458. ; move.l FASTBUFFER,a3
  459. ; lea (a3,d0.w),a3
  460.  move.l frompt,a3
  461.  adda.w .scrintocop(pc,d0.w),a3
  462.  move.l (a0)+,d1
  463.  bra .pastscrinto
  464. .scrintocop:
  465.  incbin "XTOCOPX"
  466.  
  467. .pastscrinto
  468.  swap d1
  469.  
  470.  move.w d1,d6
  471.  and.w HORAND,d6
  472.  move.l (a0)+,d2
  473.  swap d2
  474.  add.w fromtile(pc),d6
  475.  add.w d6,d6
  476.  move.w d6,a5
  477.  move.l (a0)+,d3
  478.  swap d3
  479.  add.l #divthreetab,a5
  480.  move.w (a5),StripData
  481.  
  482.  move.l ChunkAddr,a5
  483.  moveq #0,d6
  484.  move.b StripData,d6
  485.  add.w d6,d6
  486.  move.w VALSHIFT,d4
  487.  asl.l d4,d6
  488.  add.l d6,a5
  489.  move.l (a0)+,d4
  490.  swap d4
  491.  addq #1,d4
  492.  move.w d2,d6
  493. ***************************
  494. * old version
  495.  asr.w #7,d6
  496. ***************************
  497. ; asr.w #3,d6
  498. ; sub.w #4,d6
  499. ; cmp.w #6,d6
  500. ; blt.s tstbrbr
  501. ; move.w #6,d6
  502. ;tstbrbr:
  503. ***************************
  504.  move.l (a0)+,d5
  505.  swap d5
  506.  ext.w d5
  507.  add.w d5,d6
  508.  bge.s .brnotneg
  509.  moveq #0,d6
  510. .brnotneg
  511.  cmp.w #64,d6
  512.  blt.s .brnotpos
  513.  move.w #64,d6
  514. .brnotpos
  515.  move.l PaletteAddr,a2
  516.  move.l a2,a4
  517.  add.w ffscrpickhowbrightD(pc,d6*2),a2
  518.  and.b #$fe,d6
  519.  add.w ffscrpickhowbrightD(pc,d6*2),a4
  520.  
  521.  btst #0,d0
  522.  beq .nobrightswap
  523.  exg a2,a4
  524. .nobrightswap:
  525.  
  526.  move.w d7,-(a7)
  527.  bsr ScreenWallstripdraw
  528.  move.w (a7)+,d7
  529.  
  530.  
  531.  dbra d7,scrdrawlopDOUB
  532.  
  533.  rts
  534.  
  535.  
  536. middleline:
  537.  dc.w 0
  538.  
  539. ;scrintocop:
  540. ; incbin "XTOCOPX"
  541. prot4: dc.w 0
  542.  
  543. fromtile: dc.l 0
  544. fromquartertile: dc.l 0
  545. swapbrights: dc.w 0
  546. angbright: dc.w 0
  547.  
  548. leftside: dc.b 0
  549. rightside: dc.b 0
  550. firstleft: dc.w 0
  551.  
  552. ffscrpickhowbrightD:
  553.  SCALE
  554.  
  555. screendivideFULL:
  556.  
  557.  tst.b DOUBLEWIDTH
  558.  bne scrdrawlopFULLDOUB
  559.  
  560.  
  561. scrdrawlopFULL:
  562.  
  563.  move.w (a0)+,d0
  564.  move.l FASTBUFFER,a3
  565.  lea (a3,d0.w),a3
  566.  move.l (a0)+,d1
  567.  
  568. ; bra pastscrinto
  569. ;
  570. ; 
  571. ;pastscrinto 
  572.  
  573.  swap d1
  574.  
  575.  move.w d1,d6
  576.  and.w HORAND,d6
  577.  move.l (a0)+,d2
  578.  swap d2
  579.  add.w fromtile(pc),d6
  580.  add.w d6,d6
  581.  move.w d6,a5
  582.  move.l (a0)+,d3
  583.  swap d3
  584.  add.l #divthreetab,a5
  585.  move.w (a5),StripData
  586.  
  587.  move.l ChunkAddr,a5
  588.  moveq #0,d6
  589.  move.b StripData,d6
  590.  add.w d6,d6
  591.  move.w VALSHIFT,d4
  592.  asl.l d4,d6
  593.  add.l d6,a5
  594.  move.l (a0)+,d4
  595.  swap d4
  596.  addq #1,d4
  597.  move.w d2,d6
  598. ***************************
  599. * old version
  600.  asr.w #7,d6
  601. ***************************
  602. ; asr.w #3,d6
  603. ; sub.w #4,d6
  604. ; cmp.w #6,d6
  605. ; blt.s tstbrbr
  606. ; move.w #6,d6
  607. ;tstbrbr:
  608. ***************************
  609.  move.l (a0)+,d5
  610.  swap d5
  611.  ext.w d5
  612.  add.w d5,d6
  613.  bge.s .brnotneg
  614.  moveq #0,d6
  615. .brnotneg
  616.  cmp.w #64,d6
  617.  blt.s .brnotpos
  618.  move.w #64,d6
  619. .brnotpos
  620.  move.l PaletteAddr,a2
  621.  move.l a2,a4
  622.  add.w ffscrpickhowbrightFULL(pc,d6*2),a2
  623.  and.b #$fe,d6
  624.  add.w ffscrpickhowbrightFULL(pc,d6*2),a4
  625.  
  626.  btst #0,d0
  627.  beq .nobrightswap
  628.  exg a2,a4
  629. .nobrightswap:
  630.  
  631.  move.w d7,-(a7)
  632.  bsr ScreenWallstripdrawBIG
  633.  move.w (a7)+,d7
  634.  
  635.  dbra d7,scrdrawlopFULL
  636.  
  637.  rts
  638.  
  639. ffscrpickhowbrightFULL:
  640.  SCALE
  641.  
  642. itsanoddone:
  643.  add.w #4+4+4+4+4,a0
  644.  dbra d7,scrdrawlopFULLDOUB
  645.  rts
  646.  
  647. scrdrawlopFULLDOUB:
  648.  
  649.  move.w (a0)+,d0
  650.  btst #0,d0
  651.  bne.s itsanoddone
  652.  
  653.  move.l FASTBUFFER,a3
  654.  lea (a3,d0.w),a3
  655.  move.l (a0)+,d1
  656.  
  657. ; bra pastscrinto
  658. ;
  659. ; 
  660. ;pastscrinto 
  661.  
  662.  swap d1
  663.  
  664.  move.w d1,d6
  665.  and.w HORAND,d6
  666.  move.l (a0)+,d2
  667.  swap d2
  668.  add.w fromtile(pc),d6
  669.  add.w d6,d6
  670.  move.w d6,a5
  671.  move.l (a0)+,d3
  672.  swap d3
  673.  add.l #divthreetab,a5
  674.  move.w (a5),StripData
  675.  
  676.  move.l ChunkAddr,a5
  677.  moveq #0,d6
  678.  move.b StripData,d6
  679.  add.w d6,d6
  680.  move.w VALSHIFT,d4
  681.  asl.l d4,d6
  682.  add.l d6,a5
  683.  move.l (a0)+,d4
  684.  swap d4
  685.  addq #1,d4
  686.  move.w d2,d6
  687. ***************************
  688. * old version
  689.  asr.w #7,d6
  690. ***************************
  691. ; asr.w #3,d6
  692. ; sub.w #4,d6
  693. ; cmp.w #6,d6
  694. ; blt.s tstbrbr
  695. ; move.w #6,d6
  696. ;tstbrbr:
  697. ***************************
  698.  move.l (a0)+,d5
  699.  swap d5
  700.  ext.w d5
  701.  add.w d5,d6
  702.  bge.s .brnotneg
  703.  moveq #0,d6
  704. .brnotneg
  705.  cmp.w #64,d6
  706.  blt.s .brnotpos
  707.  move.w #64,d6
  708. .brnotpos
  709.  move.l PaletteAddr,a2
  710.  move.l a2,a4
  711.  add.w ffscrpickhowbrightFULLDOUB(pc,d6*2),a2
  712.  and.b #$fe,d6
  713.  add.w ffscrpickhowbrightFULLDOUB(pc,d6*2),a4
  714.  
  715.  btst #0,d0
  716.  beq .nobrightswap
  717.  exg a2,a4
  718. .nobrightswap:
  719.  
  720.  move.w d7,-(a7)
  721.  bsr ScreenWallstripdrawBIG
  722.  move.w (a7)+,d7
  723.  
  724.  dbra d7,scrdrawlopFULLDOUB
  725.  
  726.  rts
  727.  
  728. ffscrpickhowbrightFULLDOUB:
  729.  SCALE
  730.  
  731.  
  732. divthreetab:
  733. val SET 0
  734.  REPT 220
  735.  dc.b val,0
  736.  dc.b val,1
  737.  dc.b val,2
  738. val SET val+1
  739.  ENDR
  740.  
  741. StripData: dc.w 0
  742.  
  743. * using a0=left pixel
  744. * a2= right pixel
  745. * d0= left height
  746. * d2= right height
  747. * d4 = left strip
  748. * d5 = right strip
  749.  
  750.  
  751. * Routine to draw a wall;
  752. * pass it X and Z coords of the endpoints
  753. * and the start and end length, and a number
  754. * representing the number of the wall.
  755.  
  756. * a0=x1 d1=z1 a2=x2 d3=z2
  757. * d4=sl d5=el
  758. * a1 = strip buffer
  759.  
  760. store: ds.l 500
  761.  
  762. ******************************************************************
  763.  
  764. * Curve drawing routine. We have to know:
  765. * The top and bottom of the wall
  766. * The point defining the centre of the arc
  767. * the point defining the starting point of the arc
  768. * the start and end angles of the arc
  769. * The start and end positions along the bitmap of the arc
  770. * Which bitmap to use for the arc
  771.  
  772. xmiddle: dc.w 0
  773. zmiddle SET 2
  774.  dc.w 0
  775. xradius SET 4
  776.  dc.w 0
  777. zradius SET 6
  778.  dc.w 0
  779. startbitmap SET 8
  780.  dc.w 0
  781. bitmapcounter SET 10
  782.  dc.w 0
  783. brightmult SET 12
  784.  dc.w 0
  785. angadd SET 14
  786.  dc.l 0
  787. xmiddlebig SET 18
  788.  dc.l 0
  789. basebright SET 22
  790.  dc.w 0
  791. shift SET 24
  792.  dc.w 0
  793. count SET 26
  794.  dc.w 0
  795.  
  796. subdividevals:
  797.  dc.w 2,4
  798.  dc.w 3,8
  799.  dc.w 4,16
  800.  dc.w 5,32
  801.  dc.w 6,64
  802.  
  803. CurveDraw:
  804.  
  805.  move.w (a0)+,d0    ; centre of rotation
  806.  move.w (a0)+,d1    ; point on arc
  807.  move.l #Rotated,a1
  808.  move.l #xmiddle,a2
  809.  move.l (a1,d0.w*8),d2
  810.  move.l d2,18(a2)
  811.  asr.l #7,d2
  812.  move.l (a1,d1.w*8),d4
  813.  asr.l #7,d4
  814.  sub.w d2,d4
  815.  move.w d2,(a2)
  816.  move.w d4,4(a2)
  817.  move.w 6(a1,d0.w*8),d2
  818.  move.w 6(a1,d1.w*8),d4
  819.  sub.w d2,d4
  820.  move.w d2,2(a2)
  821.  asr.w #1,d4
  822.  move.w d4,6(a2)
  823.  move.w (a0)+,d4    ; start of bitmap
  824.  move.w (a0)+,d5    ; end of bitmap
  825.  move.w d4,8(a2)
  826.  sub.w d4,d5
  827.  move.w d5,10(a2)
  828.  move.w (a0)+,d4
  829.  ext.l d4
  830.  move.l d4,14(a2)
  831.  move.w (a0)+,d4
  832.  move.l #subdividevals,a3
  833.  move.l (a3,d4.w*4),shift(a2)
  834.  
  835.  move.l #walltiles,a3
  836.  add.l (a0)+,a3
  837.  adda.w wallyoff,a3
  838.  move.l a3,fromtile
  839.  move.w (a0)+,basebright(a2)
  840.  move.w (a0)+,brightmult(a2)
  841.  move.l (a0)+,topofwall
  842.  move.l (a0)+,botofwall
  843.  move.l yoff,d6
  844.  sub.l d6,topofwall
  845.  sub.l d6,botofwall
  846.  
  847.  move.l #databuffer,a1
  848.  move.l #SineTable,a3
  849.  lea 2048(a3),a4
  850.  moveq #0,d0
  851.  moveq #0,d1
  852.  move.w count(a2),d7
  853. DivideCurve
  854.  move.l d0,d2
  855.  move.w shift(a2),d4
  856.  asr.l d4,d2
  857.  move.w (a3,d2.w*2),d4
  858.  move.w d4,d5
  859.  move.w (a4,d2.w*2),d3
  860.  move.w d3,d6
  861.  muls.w 4(a2),d3
  862.  muls.w 6(a2),d4
  863.  muls.w 4(a2),d5
  864.  muls.w 6(a2),d6
  865.  sub.l d4,d3
  866.  add.l d6,d5
  867.  asl.l #2,d5
  868.  asr.l #8,d3
  869.  add.l 18(a2),d3
  870.  swap d5
  871.  move.w basebright(a2),d6
  872.  move.w brightmult(a2),d4
  873.  muls d5,d4
  874.  swap d4
  875.  add.w d4,d6
  876.  
  877.  add.w 2(a2),d5
  878.  move.l d3,(a1)+
  879.  move.w d5,(a1)+
  880.  move.w d1,d2
  881.  move.w shift(a2),d4
  882.  asr.w d4,d2
  883.  add.w 8(a2),d2
  884.  move.w d2,(a1)+
  885.  move.w d6,(a1)+
  886.  
  887.  add.l 14(a2),d0  
  888.  add.w 10(a2),d1
  889.  dbra d7,DivideCurve
  890.  
  891.  move.l a0,-(a7)
  892.  
  893. ; move.w #31,d6
  894. ; move.l #0,d3
  895. ; move.l #stripbuffer,a4
  896. ;.emptylop:
  897. ; move.l d3,(a4)+
  898. ; dbra d6,.emptylop
  899.  
  900.  bsr curvecalc
  901.  
  902.  move.l (a7)+,a0
  903.  
  904.  rts
  905.  
  906. prot3: dc.w 0
  907.  
  908. curvecalc:
  909.  move.l #databuffer,a1
  910.  move.w count(a2),d7
  911.  subq #1,d7
  912. .findfirstinfront:
  913.  move.l (a1)+,d1
  914.  move.w (a1)+,d0
  915.  bgt.s .foundinfront
  916.  move.w (a1)+,d4
  917.  move.w (a1)+,d6
  918.  dbra d7,.findfirstinfront
  919. ; CACHE_ON d2
  920.  rts    ; no two points were in front
  921.  
  922. .foundinfront:
  923.  move.w (a1)+,d4
  924.  move.w (a1)+,d6
  925.  ; d1=left x, d4=left end, d0=left dist
  926.  ; d6=left angbright 
  927.  
  928.  divs d0,d1
  929.  add.w MIDDLEX,d1
  930.  
  931.  move.l topofwall(pc),d5
  932.  divs d0,d5
  933.  add.w MIDDLEY,d5
  934.  move.w d5,strtop
  935.  move.l botofwall(pc),d5
  936.  divs d0,d5
  937.  add.w MIDDLEY,d5
  938.  move.w d5,strbot
  939.  
  940. ; CACHE_OFF d2
  941.  
  942. .computeloop:
  943.  move.w 4(a1),d2
  944.  bgt.s .infront
  945.  
  946. ; addq #8,a1
  947. ; dbra d7,.findfirstinfront
  948.  
  949. ; CACHE_ON d2
  950.  rts
  951.  
  952. .infront:
  953.  move.l #store,a0
  954.  move.l (a1),d3
  955.  move.w 6(a1),d5
  956.  add.w 8(a1),d6
  957.  asr.w #1,d6
  958.  move.w d6,angbright
  959.  divs d2,d3
  960.  add.w MIDDLEX,d3
  961.  move.w strtop(pc),12(a0)
  962.  move.w strbot(pc),16(a0)
  963.  move.l topofwall(pc),d6
  964.  divs d2,d6
  965.  add.w MIDDLEY,d6
  966.  move.w d6,strtop
  967.  move.w d6,14(a0)
  968.  move.l botofwall(pc),d6
  969.  divs d2,d6
  970.  add.w MIDDLEY,d6
  971.  move.w d6,strbot
  972.  move.w d6,18(a0)
  973.  move.w d3,2(a1)
  974.  blt.s .alloffleft
  975.  cmp.w RIGHTX,d1
  976.  bgt.s .alloffleft
  977.  
  978.  cmp.w d1,d3
  979.  blt.s .alloffleft
  980.  
  981.  move.w d1,(a0)
  982.  move.w d3,2(a0)
  983.  move.w d4,4(a0)
  984.  move.w d5,6(a0)
  985.  move.w d0,8(a0)
  986.  move.w d2,10(a0)
  987.  move.w d7,-(a7)
  988.  move.w #maxscrdiv,d7
  989.  bsr Doleftend
  990.  move.w (a7)+,d7
  991.  
  992. .alloffleft:
  993.  
  994.  move.l (a1)+,d1
  995.  move.w (a1)+,d0
  996.  move.w (a1)+,d4
  997.  move.w (a1)+,d6
  998.  
  999.  dbra d7,.computeloop
  1000.  
  1001. .alloffright:
  1002. ; CACHE_ON d2
  1003.  rts
  1004.  
  1005. ;protcheck:
  1006. ; sub.l #53624,a3
  1007. ; add.l #2345215,a2
  1008. ; lea passspace-$30000(pc),a1
  1009. ; add.l #$30000,a1
  1010. ; lea startpass(pc),a5
  1011. ; move.w #endpass-startpass-1,d1
  1012. ;copypass:
  1013. ; move.b (a5)+,(a1)+
  1014. ; dbra d1,copypass
  1015. ; sub.l a5,a5
  1016. ; lea passspace-$30000(pc),a1
  1017. ; add.l #$30000,a1
  1018. ; jsr (a1)
  1019. ; lea passspace-$30000(pc),a1
  1020. ; add.l #$30000,a1
  1021. ; lea startpass(pc),a5
  1022. ; move.w #(endpass-startpass)/2-1,d1
  1023. ;erasepass:
  1024. ; move.w -(a5),(a1)+
  1025. ; dbra d1,erasepass
  1026. ; sub.l a5,a5
  1027. ; sub.l a1,a1
  1028. ; eor.l #$af594c72,d0
  1029. ; sub.l #123453986,a4
  1030. ; move.l d0,(a4)
  1031. ; add.l #123453986,a4
  1032. ; move.l #0,d0
  1033. ; sub.l #2345215,a2
  1034. ; jsr (a2)
  1035. ; sub.l a2,a2
  1036. ; eor.l #$af594c72,d0
  1037. ; sub.l #123453986,a4
  1038. ; move.l (a4),d1
  1039. ; add.l #123453986,a4
  1040. ; cmp.l d1,d0
  1041. ; bne.s notrightt
  1042. ; add.l #53624,a3
  1043. ; move.w #9,d7
  1044. ;sayitsok:
  1045. ; move.l (a3)+,a2
  1046. ; add.l #78935450,a2
  1047. ; st (a2)
  1048. ; dbra d7,sayitsok
  1049. ;notrightt:
  1050. ; sub.l a3,a3
  1051. ;nullit:
  1052. ; rts
  1053. ; 
  1054. ; incbin "ab3:includes/protroutencoded"
  1055.  
  1056. endprot:
  1057.  
  1058. ******************************************************************
  1059.  
  1060. iters: dc.w 0
  1061. multcount: dc.w 0
  1062.  
  1063. walldraw:
  1064.  
  1065.  tst.w d1
  1066.  bgt.s oneinfront1
  1067.  tst.w d3
  1068.  bgt.s oneinfront
  1069.  rts
  1070.  
  1071. oneinfront1
  1072.  tst.w d3
  1073.  ble.s oneinfront
  1074. ; Bothinfront!
  1075.  
  1076.  nop
  1077.  
  1078. oneinfront
  1079.  
  1080.  move.w #128,d7
  1081.  move.w #5,d6
  1082.  
  1083.  move.w d3,d0
  1084.  sub.w d1,d0
  1085.  bge.s notnegzdiff
  1086.  neg.w d0
  1087. notnegzdiff
  1088. ; cmp.w #1024,d0
  1089. ; blt.s nd01
  1090. ; add.w d7,d7
  1091. ; add.w #1,d6
  1092. ;nd01:
  1093.  cmp.w #512,d0
  1094.  blt.s nd0 
  1095.  add.w d7,d7
  1096.  add.w #1,d6
  1097.  bra nha
  1098. nd0:
  1099.  
  1100.  cmp.w #256,d0
  1101.  bgt.s nh1
  1102.  asr.w #1,d7
  1103.  subq #1,d6
  1104. nh1:
  1105.  cmp.w #128,d0
  1106.  bgt.s nh2
  1107.  asr.w #1,d7
  1108.  subq #1,d6
  1109. nh2:
  1110.  
  1111. nha:
  1112.  
  1113.  move.w d3,d0
  1114.  cmp.w d1,d3
  1115.  blt.s rightnearest
  1116.  move.w d1,d0
  1117. rightnearest:
  1118.  cmp.w #64,d0
  1119.  bgt.s nd1
  1120.  addq #1,d6
  1121.  add.w d7,d7
  1122. nd1:
  1123.  
  1124.  cmp.w #128,d0
  1125.  blt.s nh3
  1126.  asr.w #1,d7
  1127.  subq #1,d6
  1128.  blt.s nh3
  1129.  cmp.w #256,d0
  1130.  blt.s nh3
  1131.  asr.w #1,d7
  1132.  subq #1,d6
  1133. nh3:
  1134.  move.w d6,iters
  1135.  subq #1,d7
  1136.  move.w d7,multcount
  1137.  
  1138.  move.l #databuffer,a3
  1139.  move.l a0,d0
  1140.  move.l a2,d2
  1141.  
  1142.  move.l d0,(a3)+
  1143.  add.l d2,d0
  1144.  move.w d1,(a3)+
  1145.  asr.l #1,d0
  1146.  move.w d4,(a3)+
  1147.  
  1148.  move.w leftwallbright,d6
  1149.  move.w d6,(a3)+
  1150.  
  1151.  add.w d5,d4
  1152.  move.l d0,(a3)+
  1153.  add.w d3,d1
  1154.  asr.w #1,d1
  1155.  move.w d1,(a3)+
  1156.  asr.w #1,d4
  1157.  move.w d4,(a3)+
  1158.  
  1159.  add.w rightwallbright,d6
  1160.  asr.w #1,d6
  1161.  move.w d6,(a3)+
  1162.  
  1163.  move.l d2,(a3)+
  1164.  move.w d3,(a3)+
  1165.  move.w d5,(a3)+
  1166.  move.w rightwallbright,(a3)+
  1167.  
  1168.  ; We now have the two endpoints and the midpoint
  1169.  ; so we need to perform 1 iteration of the inner
  1170.  ; loop, the first time.
  1171.  
  1172. * Decide how often to subdivide by how far away the wall is, and
  1173. * how perp. it is to the player.
  1174.  
  1175.  move.l #databuffer,a0
  1176.  move.l #databuffer2,a1
  1177.  
  1178.  move.w iters,d6
  1179.  blt noiters
  1180.  move.l #1,a2
  1181.  
  1182. iterloop:
  1183.  move.l a0,a3
  1184.  move.l a1,a4
  1185.  move.w a2,d7
  1186.  exg a0,a1
  1187.  
  1188.  move.l (a3)+,d0
  1189.  move.w (a3)+,d1
  1190.  move.l (a3)+,d2
  1191. middleloop:
  1192.  move.l d0,(a4)+
  1193.  move.l (a3)+,d3
  1194.  add.l d3,d0
  1195.  move.w d1,(a4)+
  1196.  asr.l #1,d0
  1197.  move.w (a3)+,d4
  1198.  add.w d4,d1
  1199.  move.l d2,(a4)+
  1200.  asr.w #1,d1
  1201.  move.l (a3)+,d5
  1202.  add.l d5,d2
  1203.  move.l d0,(a4)+
  1204.  asr.l #1,d2
  1205.  move.w d1,(a4)+
  1206.  move.l d2,(a4)+
  1207.  
  1208.  move.l d3,(a4)+
  1209.  move.l (a3)+,d0
  1210.  add.l d0,d3
  1211.  
  1212.  move.w d4,(a4)+
  1213.  asr.l #1,d3
  1214.  move.w (a3)+,d1
  1215.  add.w d1,d4
  1216.  move.l d5,(a4)+
  1217.  asr.w #1,d4
  1218.  move.l (a3)+,d2
  1219.  add.l d2,d5
  1220.  move.l d3,(a4)+
  1221.  asr.l #1,d5
  1222.  move.w d4,(a4)+
  1223.  move.l d5,(a4)+
  1224.  
  1225.  
  1226.  subq #1,d7
  1227.  bgt.s middleloop
  1228.  move.l d0,(a4)+
  1229.  move.w d1,(a4)+
  1230.  move.l d2,(a4)+
  1231.  
  1232.  add.w a2,a2
  1233.  
  1234.  dbra d6,iterloop
  1235.  
  1236. noiters:
  1237.  
  1238. CalcAndDraw:
  1239.  
  1240. ; CACHE_ON d2
  1241.  
  1242.  move.l a0,a1
  1243.  move.w multcount,d7
  1244. .findfirstinfront:
  1245.  move.l (a1)+,d1
  1246.  move.w (a1)+,d0
  1247.  bgt.s .foundinfront
  1248.  move.l (a1)+,d4
  1249.  dbra d7,.findfirstinfront
  1250.  rts    ; no two points were in front
  1251.  
  1252. .foundinfront:
  1253.  move.w (a1)+,d4
  1254.  move.w (a1)+,lbr
  1255.  ; d1=left x, d4=left end, d0=left dist 
  1256.  
  1257.  divs d0,d1
  1258.  add.w MIDDLEX,d1
  1259.  
  1260.  move.l topofwall(pc),d5
  1261.  divs d0,d5
  1262.  add.w MIDDLEY,d5
  1263.  move.w d5,strtop
  1264.  move.l botofwall(pc),d5
  1265.  divs d0,d5
  1266.  add.w MIDDLEY,d5
  1267.  move.w d5,strbot
  1268.  
  1269. .computeloop:
  1270.  move.w 4(a1),d2
  1271.  bgt.s .infront
  1272.  rts
  1273.  
  1274. .infront:
  1275.  move.l #store,a0
  1276.  move.l (a1),d3
  1277.  divs d2,d3
  1278.  move.w 6(a1),d5
  1279.  add.w MIDDLEX,d3
  1280.  move.w strtop(pc),12(a0)
  1281.  move.l topofwall(pc),d6
  1282.  divs d2,d6
  1283.  move.w strbot(pc),16(a0)
  1284.  add.w MIDDLEY,d6
  1285.  move.w d6,strtop
  1286.  move.w d6,14(a0)
  1287.  move.l botofwall(pc),d6
  1288.  divs d2,d6
  1289.  add.w MIDDLEY,d6
  1290.  move.w d6,strbot
  1291.  move.w d6,18(a0)
  1292.  move.w d3,2(a1)
  1293.  cmp.w leftclip(pc),d3
  1294.  blt .alloffleft
  1295.  cmp.w rightclip(pc),d1
  1296. ; cmp.w #95,d1
  1297.  bge .alloffright
  1298.  
  1299.  movem.l d0/d1/d2/d3/a0,-(a7)
  1300.  
  1301.  moveq #0,d0
  1302.  move.b WALLIDENT,d0
  1303.  blt.s .noputinmap
  1304.  
  1305.  move.b d0,d3
  1306.  and.b #15,d0
  1307.  move.l COMPACTPTR,a0
  1308.  moveq #0,d1
  1309.  move.w d0,d2
  1310.  add.w d0,d0
  1311.  add.w d2,d0
  1312.  bset d0,d1
  1313.  btst #4,d3
  1314.  beq.s .nodoor
  1315.  addq #2,d0
  1316.  bset d0,d1
  1317. .nodoor:
  1318.  
  1319.  or.l d1,(a0)
  1320.  move.l BIGPTR,a0
  1321.  
  1322.  move.w wallleftpt,(a0,d2.w*4) 
  1323.  move.w wallrightpt,2(a0,d2.w*4) 
  1324.  
  1325. .noputinmap
  1326.  
  1327.  movem.l (a7)+,d0/d1/d2/d3/a0
  1328.  
  1329.  bra OTHERHALF
  1330.  
  1331.  
  1332. .alloffleft:
  1333.  
  1334.  move.l (a1)+,d1
  1335.  move.w (a1)+,d0
  1336.  move.w (a1)+,d4
  1337.  move.w (a1)+,lbr
  1338.  
  1339.  dbra d7,.computeloop
  1340.  rts
  1341.  
  1342. .alloffright:
  1343.  rts
  1344.  
  1345. computeloop2:
  1346.  move.w 4(a1),d2
  1347.  bgt.s .infront
  1348.  rts
  1349.  
  1350. .infront:
  1351.  move.l #store,a0
  1352.  move.l (a1),d3
  1353.  divs d2,d3
  1354.  move.w 6(a1),d5
  1355.  add.w MIDDLEX,d3
  1356.  move.w strtop(pc),12(a0)
  1357.  move.l topofwall(pc),d6
  1358.  divs d2,d6
  1359.  move.w strbot(pc),16(a0)
  1360.  add.w MIDDLEY,d6
  1361.  move.w d6,strtop
  1362.  move.w d6,14(a0)
  1363.  move.l botofwall(pc),d6
  1364.  divs d2,d6
  1365.  add.w MIDDLEY,d6
  1366.  move.w d6,strbot
  1367.  move.w d6,18(a0)
  1368.  move.w d3,2(a1)
  1369.  cmp.w leftclip(pc),d3
  1370.  blt.s alloffleft2
  1371.  cmp.w rightclip(pc),d1
  1372. ; cmp.w #95,d1
  1373.  bge.s alloffright2
  1374.  
  1375. OTHERHALF:
  1376.  
  1377.  move.w d1,(a0)
  1378.  move.w d3,2(a0)
  1379.  move.w d4,4(a0)
  1380.  move.w d5,6(a0)
  1381.  move.w d0,8(a0)
  1382.  move.w d2,10(a0)
  1383.  
  1384.  move.w lbr,d5
  1385.  sub.w #300,d5
  1386.  ext.w d5
  1387.  move.w d5,24(a0)
  1388.  move.w 8(a1),d5
  1389.  sub.w #300,d5
  1390.  ext.w d5
  1391.  move.w d5,26(a0)
  1392.  
  1393.  movem.l d7/a1,-(a7)
  1394.  move.w #maxscrdiv,d7
  1395.  bsr Doleftend
  1396.  movem.l (a7)+,d7/a1
  1397.  
  1398. alloffleft2:
  1399.  
  1400.  move.l (a1)+,d1
  1401.  move.w (a1)+,d0
  1402.  move.w (a1)+,d4
  1403.  move.w (a1)+,lbr
  1404.  
  1405.  dbra d7,computeloop2
  1406.  
  1407.  rts
  1408.  
  1409. alloffright2:
  1410.  rts
  1411.  
  1412. lbr: dc.w 0
  1413. tlbr: dc.w 0
  1414. leftwallbright: dc.w 0
  1415. rightwallbright: dc.w 0
  1416. leftwallTOPbright: dc.w 0
  1417. rightwallTOPbright: dc.w 0
  1418. strtop: dc.w 0
  1419. strbot: dc.w 0
  1420.  
  1421. databuffer:
  1422.  ds.l 1600
  1423. databuffer2:
  1424.  ds.l 1600
  1425.  
  1426. ***********************************
  1427.  
  1428. * Need a routine which takes...?
  1429. * Top Y (3d)
  1430. * Bottom Y (3d)
  1431. * distance
  1432. * height of each tile (number and routine addr)
  1433. * And produces the appropriate strip on the
  1434. * screen.
  1435.  
  1436. topofwall: dc.l 0
  1437. botofwall: dc.l 0
  1438.  
  1439.  
  1440. nostripq:
  1441.  rts
  1442.   
  1443. ScreenWallstripdraw:
  1444.  
  1445.  move.w d4,d6
  1446.  cmp.w topclip(pc),d6
  1447.  blt.s nostripq
  1448.  cmp.w botclip(pc),d3
  1449.  bgt.s nostripq
  1450.  
  1451.  cmp.w botclip(pc),d6
  1452.  ble.s noclipbot
  1453.  move.w botclip(pc),d6
  1454. noclipbot:
  1455.  
  1456.  move.w d3,d5
  1457.  cmp.w topclip(pc),d5
  1458.  bge.s nocliptop
  1459.  move.w topclip(pc),d5
  1460.  btst #0,d5
  1461.  beq.s .nsbd
  1462.  exg a2,a4
  1463. .nsbd:
  1464.  
  1465.  bra gotoend
  1466.  
  1467. nocliptop:
  1468.  
  1469.  btst #0,d5
  1470.  beq.s .nsbd
  1471.  exg a2,a4
  1472. .nsbd:
  1473.  
  1474.  
  1475.  bra gotoend
  1476.  
  1477. wlcnt: dc.w 0
  1478.  
  1479.  CNOP 0,4
  1480. drawwalldimPACK0:
  1481.  and.w d7,d4
  1482.  move.b 1(a5,d4.w*2),d1
  1483.  and.b #31,d1
  1484.  add.l d3,d4
  1485.  move.w (a4,d1.w*2),(a3)
  1486.  adda.w d0,a3
  1487.  addx.w d2,d4
  1488.  dbra d6,drawwallPACK0
  1489.  rts
  1490.  
  1491.  CNOP 0,128 
  1492. drawwallPACK0:
  1493.  and.w d7,d4
  1494.  move.b 1(a5,d4.w*2),d1
  1495.  and.b #31,d1
  1496.  add.l d3,d4
  1497.  move.w (a2,d1.w*2),(a3)
  1498.  adda.w d0,a3
  1499.  addx.w d2,d4
  1500.  dbra d6,drawwalldimPACK0
  1501.  
  1502. nostrip:
  1503.  rts
  1504.  
  1505.  CNOP 0,4
  1506. drawwalldimPACK1:
  1507.  and.w d7,d4
  1508.  move.w (a5,d4.w*2),d1
  1509.  lsr.w #5,d1
  1510.  and.w #31,d1
  1511.  add.l d3,d4
  1512.  move.w (a4,d1.w*2),(a3)
  1513.  adda.w d0,a3
  1514.  addx.w d2,d4
  1515.  dbra d6,drawwallPACK1
  1516.  rts
  1517.  
  1518.  CNOP 0,4 
  1519. drawwallPACK1:
  1520.  and.w d7,d4
  1521.  move.w (a5,d4.w*2),d1
  1522.  lsr.w #5,d1
  1523.  and.w #31,d1
  1524.  add.l d3,d4
  1525.  move.w (a2,d1.w*2),(a3)
  1526.  adda.w d0,a3
  1527.  addx.w d2,d4
  1528.  dbra d6,drawwalldimPACK1
  1529.  
  1530.  rts
  1531.  
  1532.  CNOP 0,4
  1533. drawwalldimPACK2:
  1534.  and.w d7,d4
  1535.  move.b (a5,d4.w*2),d1
  1536.  lsr.b #2,d1
  1537.  add.l d3,d4
  1538.  move.w (a4,d1.w*2),(a3)
  1539.  adda.w d0,a3
  1540.  addx.w d2,d4
  1541.  dbra d6,drawwallPACK2
  1542.  rts
  1543.  
  1544.  CNOP 0,4 
  1545. drawwallPACK2:
  1546.  and.w d7,d4
  1547.  move.b (a5,d4.w*2),d1
  1548.  lsr.b #2,d1
  1549.  add.l d3,d4
  1550.  move.w (a2,d1.w*2),(a3)
  1551.  adda.w d0,a3
  1552.  addx.w d2,d4
  1553.  dbra d6,drawwalldimPACK2
  1554.  rts
  1555.  
  1556.  
  1557. usesimple:
  1558.  mulu d3,d4
  1559.  
  1560.  add.l d0,d4
  1561.  swap d4
  1562.  add.w totalyoff(pc),d4
  1563.  
  1564. cliptopusesimple
  1565.  move.w VALAND,d7
  1566.  move.w #104*4,d0
  1567.  moveq #0,d1
  1568.  cmp.l a4,a2
  1569.  blt.s usea2
  1570.  move.l a4,a2
  1571. usea2:
  1572.  
  1573.  and.w d7,d4
  1574.  
  1575.  move.l d2,d5
  1576.  clr.w d5
  1577.  cmp.b #1,StripData+1
  1578.  dbge d6,simplewalliPACK0
  1579.  dbne d6,simplewalliPACK1
  1580.  dble d6,simplewalliPACK2
  1581.  rts
  1582.  
  1583.  CNOP 0,4
  1584. simplewalliPACK0:
  1585.  move.b 1(a5,d4.w*2),d1
  1586.  and.b #31,d1
  1587.  move.b (a2,d1.w*2),d3
  1588. simplewallPACK0:
  1589.  move.b d3,(a3)
  1590.  adda.w d0,a3
  1591.  add.l d2,d4
  1592.  bcc.s .noread
  1593.  addq #1,d4
  1594.  and.w d7,d4
  1595.  move.b 1(a5,d4.w*2),d1
  1596.  and.b #31,d1
  1597.  move.b (a2,d1.w*2),d3
  1598. .noread:
  1599.  dbra d6,simplewallPACK0
  1600.  rts
  1601.  
  1602.  CNOP 0,4
  1603. simplewalliPACK1:
  1604.  move.w (a5,d4.w*2),d1
  1605.  lsr.w #5,d1
  1606.  and.w #31,d1
  1607.  move.b (a2,d1.w*2),d3
  1608. simplewallPACK1:
  1609.  move.b d3,(a3)
  1610.  adda.w d0,a3
  1611.  add.l d5,d4
  1612.  bcc.s .noread
  1613.  addq #1,d4
  1614.  and.w d7,d4
  1615.  move.w (a5,d4.w*2),d1
  1616.  lsr.w #5,d1
  1617.  and.w #31,d1
  1618.  move.b (a2,d1.w*2),d3
  1619. .noread:
  1620.  dbra d6,simplewallPACK1
  1621.  rts
  1622.  
  1623.  CNOP 0,4
  1624. simplewalliPACK2:
  1625.  move.b (a5,d4.w*2),d1
  1626.  lsr.b #2,d1
  1627.  and.b #31,d1
  1628.  move.b (a2,d1.w*2),d3
  1629. simplewallPACK2:
  1630.  move.b d3,(a3)
  1631.  adda.w d0,a3
  1632.  add.l d5,d4
  1633.  bcc.s .noread
  1634.  addq #1,d4
  1635.  and.w d7,d4
  1636.  move.b (a5,d4.w*2),d1
  1637.  lsr.b #2,d1
  1638.  move.b (a2,d1.w*2),d3
  1639. .noread:
  1640.  dbra d6,simplewallPACK2
  1641.  rts
  1642.  
  1643. ;gotoendnomult:
  1644. ; movem.l d0/d1/d2/d3/d4/d7,-(a7)
  1645. ; add.l timeslarge(pc,d5.w*4),a3 
  1646. ; move.w d5,d4
  1647. ; move.l 4(a1,d2.w*8),d0
  1648. ; move.l (a1,d2.w*8),d2
  1649. ; moveq #0,d3
  1650. ; move.w d2,d3
  1651. ; swap d2
  1652. ; tst.w d2
  1653. ; move.w wallyoff(pc),d4
  1654. ; add.w #44,d4
  1655. ; bne.s .notsimple
  1656. ; cmp.l #$b000,d3
  1657. ; ble cliptopusesimple
  1658. ;.notsimple:
  1659. ; bra cliptop
  1660.  
  1661. MIDDLEY: dc.w 120
  1662. BIGMIDDLEY: dc.l 320*120
  1663. TOPOFFSET: dc.w 0
  1664. SMIDDLEY: dc.w 120
  1665. SBIGMIDDLEY: dc.l 320*120
  1666. STOPOFFSET: dc.w 0
  1667.  
  1668. gotoend:
  1669.  tst.b DOUBLEHEIGHT
  1670.  bne doubwall
  1671.  sub.w d5,d6    ; height to draw. 
  1672.  ble nostripq
  1673.  
  1674.  add.l timeslarge(pc,d5.w*4),a3
  1675.  
  1676.  add.w d2,d2
  1677.  
  1678.  move.l 4(a1,d2.w*8),d0
  1679.  add.w TOPOFFSET(pc),d5
  1680.  move.w d5,d4
  1681.  
  1682.  move.l (a1,d2.w*4),d2
  1683. ; moveq #0,d3
  1684. ; move.w d2,d3
  1685. ; swap d2
  1686. ; tst.w d2
  1687. ; bne.s .notsimple
  1688. ; cmp.l #$b000,d3
  1689. ; ble usesimple
  1690. ;.notsimple:
  1691.  
  1692.  ext.l d5
  1693.  move.l d2,d4
  1694.  muls.l d5,d4
  1695.  
  1696.  add.l d0,d4
  1697.  
  1698.  ifne CHEESEY
  1699.  asr.l #1,d4
  1700.  endc
  1701.  
  1702.  swap d4
  1703.  
  1704. ; mulu d3,d4
  1705. ; muls d2,d5
  1706. ; add.l d0,d4
  1707. ; swap d4
  1708. ; add.w d5,d4
  1709.  add.w totalyoff(pc),d4
  1710.  move.w VALAND,d7
  1711.  and.w d7,d4
  1712.  move.w #104*4,d0
  1713.  moveq #0,d1
  1714.  
  1715.  ifne CHEESEY
  1716.  asr.l #1,d2
  1717.  endc
  1718.  swap d2
  1719.  move.l d2,d3
  1720.  clr.w d3
  1721.  
  1722.  cmp.b #1,StripData+1
  1723.  dbge d6,drawwallPACK0
  1724.  dbne d6,drawwallPACK1
  1725.  dble d6,drawwallPACK2
  1726.  rts
  1727.  
  1728. timeslarge:
  1729.  
  1730. val SET 0
  1731.  REPT 256
  1732.  dc.l val
  1733. val SET val+104*4
  1734.  ENDR
  1735.  
  1736. doubwall
  1737.  moveq #0,d0
  1738.  asr.w #1,d5
  1739. ; addx.w d0,d5
  1740. ; add.w d5,d5
  1741.  asr.w #1,d6
  1742.  sub.w d5,d6
  1743.  ble nostripq
  1744.  
  1745.  add.l timeslargeDOUB(pc,d5.w*4),a3
  1746.  
  1747.  add.w d5,d5
  1748.  add.w d2,d2
  1749.  
  1750.  move.l 4(a1,d2.w*8),d0
  1751.  add.w TOPOFFSET(pc),d5
  1752.  move.w d5,d4
  1753.  
  1754.  move.l (a1,d2.w*4),d2
  1755. ; moveq #0,d3
  1756. ; move.w d2,d3
  1757. ; swap d2
  1758. ; tst.w d2
  1759. ; bne.s .notsimple
  1760. ; cmp.l #$b000,d3
  1761. ; ble usesimple
  1762. ;.notsimple:
  1763.  
  1764.  ext.l d5
  1765.  move.l d2,d4
  1766.  muls.l d5,d4
  1767.  
  1768.  add.l d0,d4
  1769.  
  1770.  ifne CHEESEY
  1771.  asr.l #1,d4
  1772.  endc
  1773.  
  1774.  swap d4
  1775.  
  1776. ; mulu d3,d4
  1777. ; muls d2,d5
  1778. ; add.l d0,d4
  1779. ; swap d4
  1780. ; add.w d5,d4
  1781.  add.w totalyoff(pc),d4
  1782.  move.w VALAND,d7
  1783.  and.w d7,d4
  1784.  move.w #104*4,d0
  1785.  moveq #0,d1
  1786.  
  1787.  ifeq CHEESEY
  1788.  add.l d2,d2
  1789.  endc
  1790.  
  1791.  swap d2
  1792.  move.l d2,d3
  1793.  clr.w d3
  1794.  
  1795.  cmp.b #1,StripData+1
  1796.  dbge d6,drawwallPACK0
  1797.  dbne d6,drawwallPACK1
  1798.  dble d6,drawwallPACK2
  1799.  rts
  1800.  
  1801. timeslargeDOUB:
  1802.  
  1803. val SET 0
  1804.  REPT 256
  1805.  dc.l val
  1806. val SET val+104*4
  1807.  ENDR
  1808.  
  1809.  
  1810.  
  1811.  
  1812. ScreenWallstripdrawBIG:
  1813.  
  1814.  move.w d4,d6
  1815.  cmp.w topclip(pc),d6
  1816.  blt nostripq
  1817.  cmp.w botclip(pc),d3
  1818.  bgt nostripq
  1819.  
  1820.  cmp.w botclip(pc),d6
  1821.  ble.s .noclipbot
  1822.  move.w botclip(pc),d6
  1823. .noclipbot:
  1824.  
  1825.  move.w d3,d5
  1826.  cmp.w topclip(pc),d5
  1827.  bge.s .nocliptop
  1828.  move.w topclip(pc),d5
  1829.  btst #0,d5
  1830.  beq.s .nsbd
  1831.  exg a2,a4
  1832. .nsbd:
  1833.  
  1834.  bra gotoendBIG
  1835.  
  1836. .nocliptop:
  1837.  
  1838.  btst #0,d5
  1839.  beq.s .nsbd2
  1840.  exg a2,a4
  1841. .nsbd2:
  1842.  
  1843.  
  1844. gotoendBIG
  1845.  tst.b DOUBLEHEIGHT
  1846.  bne doubwallBIG
  1847.  sub.w d5,d6    ; height to draw.
  1848.  ble nostripq
  1849.  
  1850.  add.l timeslargeBIG(pc,d5.w*4),a3 
  1851.  
  1852.  move.w d2,d4
  1853.  add.w d2,d2
  1854.  add.w d2,d4
  1855.  
  1856.  move.l 4(a1,d4.w*8),d0
  1857.  add.w TOPOFFSET(pc),d5
  1858.  move.w d5,d4
  1859.  
  1860.  move.l (a1,d2.w*4),d2
  1861. ; moveq #0,d3
  1862. ; move.w d2,d3
  1863. ; swap d2
  1864. ; tst.w d2
  1865. ; bne.s .notsimple
  1866. ; cmp.l #$b000,d3
  1867. ; ble usesimple
  1868. ;.notsimple:
  1869.  
  1870.  ext.l d5
  1871.  move.l d2,d4
  1872.  muls.l d5,d4
  1873.  
  1874.  add.l d0,d4
  1875.  
  1876.  ifne CHEESEY
  1877.  asr.l #1,d4
  1878.  endc
  1879.  
  1880.  swap d4
  1881.  
  1882. ; mulu d3,d4
  1883. ; muls d2,d5
  1884. ; add.l d0,d4
  1885. ; swap d4
  1886. ; add.w d5,d4
  1887.  add.w totalyoff(pc),d4
  1888.  move.w VALAND,d7
  1889.  and.w d7,d4
  1890.  move.w #320,d0
  1891.  moveq #0,d1
  1892.  
  1893.  ifne CHEESEY
  1894.  asr.l #1,d2
  1895.  endc
  1896.  swap d2
  1897.  move.l d2,d3
  1898.  clr.w d3
  1899.  
  1900.  cmp.b #1,StripData+1
  1901.  dbge d6,drawwallPACK0
  1902.  dbne d6,drawwallPACK1
  1903.  dble d6,drawwallPACK2
  1904.  rts
  1905.  
  1906. timeslargeBIG:
  1907.  
  1908. val SET 0
  1909.  REPT 256
  1910.  dc.l val
  1911. val SET val+320
  1912.  ENDR
  1913.  
  1914. doubwallBIG:
  1915.  moveq #0,d0
  1916.  asr.w #1,d5
  1917.  addx.w d0,d5
  1918.  add.w d5,d5
  1919.  
  1920.  sub.w d5,d6    ; height to draw.
  1921.  asr.w #1,d6
  1922.  ble nostripq
  1923.  add.l timeslargeBIGDOUB(pc,d5.w*4),a3 
  1924.  
  1925.  move.w d2,d4
  1926.  add.w d2,d2
  1927.  add.w d2,d4
  1928.  
  1929.  move.l 4(a1,d4.w*8),d0
  1930.  add.w TOPOFFSET(pc),d5
  1931.  move.w d5,d4
  1932.  
  1933.  move.l (a1,d2.w*4),d2
  1934. ; moveq #0,d3
  1935. ; move.w d2,d3
  1936. ; swap d2
  1937. ; tst.w d2
  1938. ; bne.s .notsimple
  1939. ; cmp.l #$b000,d3
  1940. ; ble usesimple
  1941. ;.notsimple:
  1942.  
  1943.  ext.l d5
  1944.  move.l d2,d4
  1945.  muls.l d5,d4
  1946.  
  1947.  add.l d0,d4
  1948.  
  1949.  ifne CHEESEY
  1950.  asr.l #1,d4
  1951.  endc
  1952.  
  1953.  swap d4
  1954.  
  1955. ; mulu d3,d4
  1956. ; muls d2,d5
  1957. ; add.l d0,d4
  1958. ; swap d4
  1959. ; add.w d5,d4
  1960.  add.w totalyoff(pc),d4
  1961.  move.w VALAND,d7
  1962.  and.w d7,d4
  1963.  move.w #640,d0
  1964.  moveq #0,d1
  1965.  
  1966.  ifeq CHEESEY
  1967.  add.l d2,d2
  1968.  endc
  1969.  
  1970.  swap d2
  1971.  move.l d2,d3
  1972.  clr.w d3
  1973.  
  1974.  cmp.b #1,StripData+1
  1975.  dbge d6,drawwallPACK0
  1976.  dbne d6,drawwallPACK1
  1977.  dble d6,drawwallPACK2
  1978.  rts
  1979.  
  1980. timeslargeBIGDOUB:
  1981.  
  1982. val SET 0
  1983.  REPT 256
  1984.  dc.l val
  1985. val SET val+320
  1986.  ENDR
  1987.  
  1988. nostripqthru:
  1989.  rts
  1990.  
  1991.  
  1992.  
  1993. ScreenWallstripdrawthru:
  1994.  
  1995.  move.w d4,d6
  1996.  cmp.w topclip(pc),d6
  1997.  blt.s nostripqthru
  1998.  cmp.w botclip(pc),d3
  1999.  bgt.s nostripqthru
  2000.  
  2001.  cmp.w botclip(pc),d6
  2002.  ble.s .noclipbot
  2003.  move.w botclip(pc),d6
  2004. .noclipbot:
  2005.  
  2006.  move.w d3,d5
  2007.  cmp.w topclip(pc),d5
  2008.  bge.s .nocliptop
  2009.  move.w topclip(pc),d5
  2010.  btst #0,d5
  2011.  beq.s .nsbd
  2012.  exg a2,a4
  2013. .nsbd:
  2014.  
  2015.  sub.w d5,d6    ; height to draw.
  2016.  ble.s nostripqthru
  2017.  
  2018.  bra gotoendthru
  2019.  
  2020. .nocliptop:
  2021.  
  2022.  btst #0,d5
  2023.  beq.s .nsbdthru
  2024.  exg a2,a4
  2025. .nsbdthru:
  2026.  
  2027.  sub.w d5,d6    ; height to draw.
  2028.  ble.s nostripqthru
  2029.  
  2030.  bra gotoendthru
  2031.  
  2032.  CNOP 0,4
  2033. drawwalldimthruPACK0:
  2034.  and.w d7,d4
  2035.  move.b 1(a5,d4.w*2),d1
  2036.  and.b #31,d1
  2037.  beq.s .holey
  2038.  move.w (a4,d1.w*2),(a3)
  2039. .holey:
  2040.  adda.w d0,a3
  2041.  add.l d3,d4
  2042.  addx.w d2,d4
  2043.  dbra d6,drawwallthruPACK0
  2044.  rts
  2045.  CNOP 0,4
  2046. drawwallthruPACK0:
  2047.  and.w d7,d4
  2048.  move.b 1(a5,d4.w*2),d1
  2049.  and.b #31,d1
  2050.  beq.s .holey
  2051.  move.w (a2,d1.w*2),(a3)
  2052. .holey:
  2053.  adda.w d0,a3
  2054.  add.l d3,d4
  2055.  addx.w d2,d4
  2056.  dbra d6,drawwalldimthruPACK0
  2057. nostripthru:
  2058.  rts
  2059.  
  2060.  CNOP 0,4
  2061. drawwalldimthruPACK1:
  2062.  and.w d7,d4
  2063.  move.w (a5,d4.w*2),d1
  2064.  lsr.w #5,d1
  2065.  and.w #31,d1
  2066.  beq.s .holey
  2067.  move.w (a4,d1.w*2),(a3)
  2068. .holey:
  2069.  adda.w d0,a3
  2070.  add.l d3,d4
  2071.  addx.w d2,d4
  2072.  dbra d6,drawwallthruPACK1
  2073.  rts
  2074.  CNOP 0,4
  2075. drawwallthruPACK1:
  2076.  and.w d7,d4
  2077.  move.w (a5,d4.w*2),d1
  2078.  lsr.w #5,d1
  2079.  and.w #31,d1
  2080.  beq.s .holey
  2081.  move.w (a2,d1.w*2),(a3)
  2082. .holey:
  2083.  adda.w d0,a3
  2084.  add.l d3,d4
  2085.  addx.w d2,d4
  2086.  dbra d6,drawwalldimthruPACK1
  2087.  rts
  2088.  
  2089.  CNOP 0,4
  2090. drawwalldimthruPACK2:
  2091.  and.w d7,d4
  2092.  move.b (a5,d4.w*2),d1
  2093.  lsr.b #2,d1
  2094.  and.b #31,d1
  2095.  beq.s .holey
  2096.  move.w (a4,d1.w*2),(a3)
  2097. .holey:
  2098.  adda.w d0,a3
  2099.  add.l d3,d4
  2100.  addx.w d2,d4
  2101.  dbra d6,drawwallthruPACK2
  2102.  rts
  2103.  CNOP 0,4
  2104. drawwallthruPACK2:
  2105.  and.w d7,d4
  2106.  move.b (a5,d4.w*2),d1
  2107.  lsr.b #2,d1
  2108.  and.b #31,d1
  2109.  beq.s .holey
  2110.  move.w (a2,d1.w*2),(a3)
  2111. .holey:
  2112.  adda.w d0,a3
  2113.  add.l d3,d4
  2114.  addx.w d2,d4
  2115.  dbra d6,drawwalldimthruPACK2
  2116.  rts
  2117.  
  2118.  
  2119. usesimplethru:
  2120.  mulu d3,d4
  2121.  
  2122.  add.l d0,d4
  2123.  swap d4
  2124.  add.w totalyoff(pc),d4
  2125.  
  2126. cliptopusesimplethru
  2127.  moveq #63,d7
  2128.  move.w #104*4,d0
  2129.  moveq #0,d1
  2130.  cmp.l a4,a2
  2131.  blt.s usea2thru
  2132.  move.l a4,a2
  2133. usea2thru:
  2134.  and.w d7,d4
  2135.  
  2136.  move.l d2,d5
  2137.  clr.w d5
  2138.  
  2139.  cmp.b #1,StripData+1
  2140.  dbge d6,simplewallthruiPACK0
  2141.  dbne d6,simplewallthruiPACK1
  2142.  dble d6,simplewallthruiPACK2
  2143.  rts
  2144.  
  2145.  CNOP 0,4
  2146. simplewallthruiPACK0:
  2147.  move.b 1(a5,d4.w*2),d1
  2148.  and.b #31,d1
  2149.  move.w (a2,d1.w*2),d3
  2150. simplewallthruPACK0:
  2151.  move.w d3,(a3)
  2152.  adda.w d0,a3
  2153.  add.l d5,d4
  2154.  bcc.s noreadthruPACK0
  2155. maybeholePACK0
  2156.  addx.w d2,d4
  2157.  and.w d7,d4
  2158.  move.b 1(a5,d4.w*2),d1
  2159.  and.b #31,d1
  2160.  beq.s holeysimplePACK0
  2161.  move.w (a2,d1.w*2),d3
  2162.  dbra d6,simplewallthruPACK0
  2163.  rts
  2164. noreadthruPACK0:
  2165.  addx.w d2,d4
  2166.  dbra d6,simplewallthruPACK0
  2167.  rts
  2168.  
  2169.  CNOP 0,4
  2170. simplewallholePACK0:
  2171.  adda.w d0,a3
  2172.  add.l d5,d4
  2173.  bcs.s maybeholePACK0
  2174.  addx.w d2,d4
  2175. holeysimplePACK0
  2176.  and.w d7,d4
  2177.  dbra d6,simplewallholePACK0
  2178.  rts
  2179.  
  2180.  CNOP 0,4
  2181. simplewallthruiPACK1:
  2182.  move.w (a5,d4.w*2),d1
  2183.  lsr.w #5,d1
  2184.  and.w #31,d1
  2185.  move.w (a2,d1.w*2),d3
  2186.  simplewallthruPACK1:
  2187.  move.w d3,(a3)
  2188.  adda.w d0,a3
  2189.  add.l d5,d4
  2190.  bcc.s noreadthruPACK1
  2191. maybeholePACK1
  2192.  addx.w d2,d4
  2193.  and.w d7,d4
  2194.  move.w (a5,d4.w*2),d1
  2195.  lsr.w #5,d1
  2196.  and.w #31,d1
  2197.  beq.s holeysimplePACK1
  2198.  move.w (a2,d1.w*2),d3
  2199.  dbra d6,simplewallthruPACK1
  2200.  rts
  2201. noreadthruPACK1:
  2202.  addx.w d2,d4
  2203.  dbra d6,simplewallthruPACK1
  2204.  rts
  2205.  
  2206.  CNOP 0,4
  2207. simplewallholePACK1:
  2208.  adda.w d0,a3
  2209.  add.l d5,d4
  2210.  bcs.s maybeholePACK1
  2211.  addx.w d5,d4
  2212. holeysimplePACK1
  2213.  and.w d7,d4
  2214.  dbra d6,simplewallholePACK1
  2215.  rts
  2216.  
  2217.  
  2218.  CNOP 0,4
  2219. simplewallthruiPACK2:
  2220.  move.b (a5,d4.w*2),d1
  2221.  lsr.b #2,d1
  2222.  and.b #31,d1
  2223.  move.w (a2,d1.w*2),d3
  2224. simplewallthruPACK2:
  2225.  move.w d3,(a3)
  2226.  adda.w d0,a3
  2227.  add.l d5,d4
  2228.  bcc.s noreadthruPACK2
  2229. maybeholePACK2
  2230.  addx.w d2,d4
  2231.  and.w d7,d4
  2232.  move.b (a5,d4.w*2),d1
  2233.  lsr.b #2,d1
  2234.  and.b #31,d1
  2235.  beq.s holeysimplePACK2
  2236.  move.w (a2,d1.w*2),d3
  2237.  dbra d6,simplewallthruPACK2
  2238.  rts
  2239. noreadthruPACK2:
  2240.  addx.w d2,d4
  2241.  dbra d6,simplewallthruPACK2
  2242.  rts
  2243.  
  2244.  CNOP 0,4
  2245. simplewallholePACK2
  2246.  adda.w d0,a3
  2247.  add.l d5,d4
  2248.  bcs.s maybeholePACK2
  2249.  addx.w d2,d4
  2250. holeysimplePACK2
  2251.  and.w d7,d4
  2252.  dbra d6,simplewallholePACK2
  2253.  rts
  2254.  
  2255.  
  2256. gotoendthru:
  2257.  add.l timeslargethru(pc,d5.w*4),a3 
  2258.  move.w d5,d4
  2259.  move.l 4(a1,d2.w*8),d0
  2260.  move.l (a1,d2.w*8),d2
  2261.  moveq #0,d3
  2262.  move.w d2,d3
  2263.  swap d2
  2264.  tst.w d2
  2265.  bne.s .notsimple
  2266.  cmp.l #$b000,d3
  2267.  ble usesimplethru
  2268. .notsimple:
  2269.  
  2270.  mulu d3,d4
  2271.  muls d2,d5
  2272.  add.l d0,d4
  2273.  swap d4
  2274.  add.w d5,d4
  2275.  add.w wallyoff(pc),d4
  2276. cliptopthru
  2277.  moveq #63,d7
  2278.  move.w #104*4,d0
  2279.  moveq #0,d1
  2280.  
  2281.  move.l d2,d3
  2282.  clr.w d3
  2283.  
  2284.  cmp.b #1,StripData+1
  2285.  dbge d6,drawwallthruPACK0
  2286.  dbne d6,drawwallthruPACK1
  2287.  dble d6,drawwallthruPACK2
  2288.  
  2289.  rts
  2290.  
  2291. timeslargethru:
  2292.  
  2293. val SET 104*4
  2294.  REPT 80
  2295.  dc.l val
  2296. val SET val+104*4
  2297.  ENDR
  2298.  
  2299. totalyoff: dc.w 0
  2300. wallyoff: dc.w 0
  2301.  
  2302. ******************************************
  2303. * Wall polygon
  2304. leftend: dc.w 0
  2305. wallbrightoff: dc.w 0
  2306. wallleftpt: dc.w 0
  2307. wallrightpt: dc.w 0
  2308. WHICHPBR: dc.w 0
  2309. WHICHLEFTPT: dc.w 0
  2310. WHICHRIGHTPT: dc.w 0
  2311. OTHERZONE: dc.w 0
  2312.  
  2313. itsawalldraw:
  2314.  
  2315.  move.l #Rotated,a5
  2316.  move.l #OnScreen,a6
  2317.  
  2318.  move.w (a0)+,d0
  2319.  move.w (a0)+,d2
  2320.  
  2321.  move.w d0,wallleftpt
  2322.  move.w d2,wallrightpt
  2323.  
  2324.  move.b (a0)+,WHICHLEFTPT+1
  2325.  move.b (a0)+,WHICHRIGHTPT+1
  2326.  move.w #0,leftend
  2327.  moveq #0,d5
  2328.  move.w (a0)+,d5
  2329.  
  2330.  ifne CHEESEY
  2331.  asr.w #1,d5
  2332.  endc
  2333.  
  2334.  move.w (a0)+,d1
  2335.  
  2336.  ifeq CHEESEY
  2337.  asl.w #4,d1
  2338.  endc
  2339.  ifne CHEESEY
  2340.  asl.w #3,d1
  2341.  endc
  2342.  
  2343.  move.w d1,fromtile
  2344.  
  2345.  move.w (a0)+,d1
  2346.  move.w d1,totalyoff
  2347.  
  2348.  move.w (a0)+,d1
  2349.  move.l #walltiles,a3
  2350.  move.l (a3,d1.w*4),a3
  2351.  move.l a3,PaletteAddr
  2352.  add.l #64*32,a3
  2353.  move.l a3,ChunkAddr
  2354.  
  2355.  ;move.w (a0)+,d1
  2356.  ;add.w ZoneBright,d1
  2357.  move.w ZoneBright,angbright
  2358.  ;move.w (a0)+,d1
  2359.  ;move.w (a0)+,d4
  2360.  move.l yoff,d6
  2361.  
  2362.  moveq #0,d1
  2363.  move.b (a0)+,d1
  2364.  
  2365.  ifne CHEESEY
  2366.  asr.w #1,d1
  2367.  endc
  2368.  move.w d1,VALAND
  2369.  
  2370.  moveq #0,d1
  2371.  move.b (a0)+,d1
  2372.  
  2373.  ifne CHEESEY
  2374.  sub.w #1,d1
  2375.  endc
  2376.  move.w d1,VALSHIFT
  2377.  
  2378.  moveq #0,d1
  2379.  move.b (a0)+,d1
  2380.  
  2381.  ifne CHEESEY
  2382.  asr.w #1,d1
  2383.  endc
  2384.  
  2385.  move.w d1,HORAND
  2386.  
  2387.  move.b (a0)+,WHICHPBR
  2388.  
  2389.  move.w totalyoff,d1
  2390.  add.w wallyoff,d1
  2391.  
  2392.  ifne CHEESEY
  2393.  asr.w #1,d1
  2394.  endc
  2395.  
  2396.  and.w VALAND,d1
  2397.  move.w d1,totalyoff
  2398.  
  2399.  move.l (a0)+,topofwall
  2400.  sub.l d6,topofwall
  2401.  move.l (a0)+,botofwall
  2402.  sub.l d6,botofwall
  2403.  
  2404.  
  2405.  move.b (a0)+,d3
  2406.  ext.w d3
  2407.  move.w d3,wallbrightoff
  2408.  move.b (a0)+,OTHERZONE+1
  2409.  
  2410.  move.l topofwall,d3
  2411.  cmp.l botofwall,d3
  2412.  bge wallfacingaway
  2413.  
  2414.  
  2415.  tst.w 6(a5,d0*8)
  2416.  bgt.s cantell
  2417.  tst.w 6(a5,d2*8)
  2418.  ble wallfacingaway
  2419.  bra cliptotestfirstbehind
  2420. cantell:
  2421.  tst.w 6(a5,d2*8)
  2422.  ble.s cliptotestsecbehind
  2423.  bra pastclip
  2424. cliptotestfirstbehind:
  2425.  
  2426.  move.l (a5,d0*8),d3
  2427.  sub.l (a5,d2*8),d3
  2428.  move.w 6(a5,d0*8),d6
  2429.  sub.w 6(a5,d2*8),d6
  2430.  divs d6,d3
  2431.  muls 6(a5,d2*8),d3
  2432.  neg.l d3
  2433.  add.l (a5,d2*8),d3
  2434.  move.w (a6,d2*2),d6
  2435.  sub.w MIDDLEX,d6
  2436.  ext.l d6
  2437.  cmp.l d6,d3
  2438.  bge wallfacingaway
  2439.  bra cant_tell
  2440.  bra pastclip
  2441.  
  2442. cliptotestsecbehind:
  2443.  
  2444.  move.l (a5,d2*8),d3
  2445.  sub.l (a5,d0*8),d3
  2446.  move.w 6(a5,d2*8),d6
  2447.  sub.w 6(a5,d0*8),d6
  2448.  divs d6,d3
  2449.  muls 6(a5,d0*8),d3
  2450.  neg.l d3
  2451.  add.l (a5,d0*8),d3
  2452.  move.w (a6,d0*2),d6
  2453.  sub.w MIDDLEX,d6
  2454.  ext.l d6
  2455.  cmp.l d6,d3
  2456.  ble wallfacingaway
  2457.  bra cant_tell
  2458.  
  2459. pastclip:
  2460.  
  2461.  move.w (a6,d0*2),d3
  2462.  cmp.w RIGHTX,d3
  2463.  bge wallfacingaway
  2464.  cmp.w (a6,d2*2),d3
  2465.  bge wallfacingaway
  2466.  tst.w (a6,d2*2)
  2467.  blt wallfacingaway
  2468.  
  2469. cant_tell:
  2470.  
  2471. ; move.l a1,a4
  2472. ; move.w #31,d6
  2473. ; move.l #0,d3
  2474. ;.emptylop:
  2475. ; move.l d3,(a4)+
  2476. ; dbra d6,.emptylop
  2477.  
  2478. ; move.w rightclip(pc),d6
  2479. ; st (a1,d6)
  2480. ; move.w leftclip(pc),d6
  2481. ; st -1(a1,d6)
  2482.  
  2483. ; muls sinval(pc),d1
  2484. ; muls cosval(pc),d4
  2485. ; add.l d1,d4
  2486. ; add.l d4,d4
  2487. ; swap d4
  2488. ; neg.w d4
  2489. ; move.w d4,d6
  2490. ; asr.w #1,d4
  2491. ; sub.w d4,angbright
  2492. ; and.b #$fe,d4
  2493. ; asl.w #2,d4
  2494. ; asl.w #2,d6
  2495.  
  2496.  movem.l d7/a0/a5/a6,-(a7)
  2497.  move.l (a5,d0*8),a0
  2498. ; add.l a0,a0
  2499.  move.w 6(a5,d0*8),d1
  2500.  move.l (a5,d2*8),a2
  2501. ; add.l a2,a2
  2502.  move.w 6(a5,d2*8),d3
  2503.  
  2504.  move.l #CurrentPointBrights,a5
  2505.  tst.b DOUPPER
  2506.  beq.s .notupper
  2507.  add.w #4,a5
  2508. .notupper
  2509.  
  2510.  move.w currzone,d0
  2511.  move.b WHICHPBR,d4
  2512.  btst #3,d4
  2513.  beq.s .nototherzone 
  2514.  move.w OTHERZONE,d0
  2515. .nototherzone
  2516.  
  2517.  and.w #7,d4
  2518.  muls #40,d0
  2519.  add.w d0,d4
  2520.  
  2521.  move.w WHICHLEFTPT,d0
  2522.  asl.w #2,d0
  2523.  add.w d4,d0
  2524.  
  2525.  move.w (a5,d0.w*2),d0
  2526.  bge.s .okpos1
  2527.  neg.w d0
  2528. .okpos1:
  2529.  
  2530.  add.w wallbrightoff,d0
  2531.  move.w d0,leftwallbright
  2532.  
  2533.  move.w WHICHRIGHTPT,d0
  2534.  asl.w #2,d0
  2535.  add.w d4,d0
  2536.  move.w (a5,d0.w*2),d0
  2537.  bge.s .okpos2
  2538.  neg.w d0
  2539. .okpos2:
  2540.  
  2541.  add.w wallbrightoff,d0
  2542.  move.w d0,rightwallbright
  2543.  
  2544.  move.w currzone,d0
  2545.  move.b WHICHPBR,d4
  2546.  lsr.w #4,d4
  2547.  btst #3,d4
  2548.  beq.s .nototherzone2 
  2549.  move.w OTHERZONE,d0
  2550. .nototherzone2
  2551.  
  2552.  and.w #7,d4
  2553.  muls #40,d0
  2554.  add.w d0,d4
  2555.  
  2556.  move.w WHICHLEFTPT,d0
  2557.  asl.w #2,d0
  2558.  add.w d4,d0
  2559.  
  2560.  move.w (a5,d0.w*2),d0
  2561.  bge.s .okpos3
  2562.  neg.w d0
  2563. .okpos3:
  2564.  
  2565.  
  2566.  add.w wallbrightoff,d0
  2567.  move.w d0,leftwallTOPbright
  2568.  
  2569.  move.w WHICHRIGHTPT,d0
  2570.  asl.w #2,d0
  2571.  add.w d4,d0
  2572.  move.w (a5,d0.w*2),d0
  2573.  bge.s .okpos4
  2574.  neg.w d0
  2575. .okpos4:
  2576.  add.w wallbrightoff,d0
  2577.  move.w d0,rightwallTOPbright
  2578.  
  2579.  move.w leftend(pc),d4
  2580.  move.l #max3ddiv,d7
  2581.  
  2582.  ifeq CHEESEY
  2583.  
  2584.  move.w rightwallTOPbright,d0
  2585.  cmp.w rightwallbright,d0
  2586.  bne.s gottagour
  2587.  move.w leftwallTOPbright,d0
  2588.  cmp.w leftwallbright,d0
  2589.  bne.s gottagour
  2590.  
  2591.  endc
  2592.  
  2593.  bsr walldraw
  2594.  bra.s nottagour
  2595.  
  2596. gottagour:
  2597.  bsr walldrawGOUR
  2598. nottagour:
  2599.  movem.l (a7)+,d7/a0/a5/a6
  2600.  
  2601. wallfacingaway:
  2602.  
  2603.  rts
  2604.  
  2605. PointBrightsPtr: dc.l 0
  2606. midpt: dc.l 0
  2607. dist1: dc.l 0
  2608. dist2: dc.l 0
  2609. VALAND: dc.w 0
  2610. VALSHIFT: dc.w 0
  2611. HORAND: dc.w 0
  2612.  
  2613. sinval: dc.w 0
  2614. cosval: dc.w 0
  2615.  
  2616. oldxoff: dc.w 0
  2617. oldzoff: dc.w 0
  2618.  
  2619. topclip: dc.w 0
  2620. botclip: dc.w 0
  2621. seethru: dc.w 0
  2622.